В массиве A(10) заменить отрицательные элементы нулями — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
CLS
n = 10
DIM a(n)
RANDOMIZE TIMER
FOR i = 1 TO n
    a(i) = INT(RND * 101) - 50
NEXT i
'Vivod na ekran iskhodnogo massiva
PRINT "IShodniy Massiv"
FOR i = 1 TO n
    PRINT a(i);
NEXT i
PRINT
'Proveryaem kazhdii element massiva i yesli element < 0 priravnivaem yego k 0
FOR i = 1 TO n
    IF a(i) < 0 THEN a(i) = 0
NEXT i
'vivod massiva posle preobrazovanii
PRINT "Massiv posle preobrazovany"
FOR i = 1 TO n
    PRINT a(i);
NEXT i
END

Похожие записи/страницы:

Leave a Comment